From: Stefan Monnier Date: Fri, 23 Sep 2011 14:32:36 +0000 (-0400) Subject: * lisp/subr.el (with-wrapper-hook): Fix edebug spec. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~2159 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=9ba6dcd024442bfd6e4d2bc8504d97464f058def;p=emacs.git * lisp/subr.el (with-wrapper-hook): Fix edebug spec. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 515f01ff4b3..e2af8a250bf 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2011-09-23 Stefan Monnier + + * subr.el (with-wrapper-hook): Fix edebug spec. + 2011-09-23 Lars Magne Ingebrigtsen * simple.el (kill-line): Note effect of `show-trailing-whitespace' diff --git a/lisp/subr.el b/lisp/subr.el index 0d8797b6f63..1aa714fa883 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1377,7 +1377,7 @@ arbitrary expression. ARGS is a list of variables which will be passed as additional arguments to each function, after the initial argument, and which the first argument expects to receive when called." - (declare (indent 2) (debug t)) + (declare (indent 2) (debug (form sexp body))) ;; We need those two gensyms because CL's lexical scoping is not available ;; for function arguments :-( (let ((funs (make-symbol "funs"))